unit TRefOrderPayment;

interface

uses
  Windows, Classes, SysUtils, uDataTransferObject, uBasicDAOAdapter;

type
  TRefOrderPaymentVO = class(TDataTransferObject)
  private
    FWorkNo: string;
    FStaffId: string;
    FDistanceFee: double;
    FAccessoryFee:double;
    FItemFee:double;
    FTotalFee:double;
    FFineFee:double;
    FIndeedFee:double;
    FInfo1:String;
    FInfo2:String;
  published
    property work_no: string index 0 read FWorkNo write FWorkNo;
    property staff_id: string index 1 read FStaffId write FStaffId;
    property distance_fee: double index 2 read FDistanceFee write FDistanceFee;
    property accessory_fee: double index 3 read FAccessoryFee write FAccessoryFee;
    property item_fee: double index 4 read FItemFee write FItemFee;
    property total_fee: double index 5 read FTotalFee write FTotalFee;
    property fine_fee: double index 6 read FFineFee write FFineFee;
    property indeed_fee: double index 7 read FIndeedFee write FIndeedFee;
    property info1: String index 8 read FInfo1 write FInfo1;
    property info2: String index 9 read FInfo2 write FInfo2;
  public
    constructor Create;
    procedure Reset();
  end;

implementation

constructor TRefOrderPaymentVO.Create;
begin
  inherited Create;
  tbName := 'inf_item_fee';
  SetLength(GridInfo, 5);
end;

procedure TRefOrderPaymentVO.Reset();
begin
  FWorkNo:='-999';
  FStaffId:='-999';
  FDistanceFee:=-999;
  FAccessoryFee:=-999;
  FItemFee:=-999;
  FTotalFee:=-999;
  FFineFee:=-999;
  FIndeedFee:=-999;
  FInfo1:='-999';
  FInfo2:='-999';
end;

end.
